home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / i-tpower.lha / ice-t_power / ICE-T_POWER.S < prev   
Encoding:
Text File  |  1988-10-24  |  34.0 KB  |  1,219 lines
  1. >EXTERN "ICE-T_POWER.DATA",$60000
  2. ***********************************************************
  3. *          Short Sinus Intro V2.1
  4. *    Coded by Ice-T of Thrust in 1989
  5. * 
  6. * This Intro was originally coded for Supreme , but
  7. * as noone used it I sold to the group ''ICE-T Power''
  8. *       Yes , they are my fan-club !
  9. *
  10. * Instructions :
  11. *
  12. * How to edit the Scroll and its functions ( at line 182 ):
  13. * 
  14. * - A 's' ( not a capital 'S' !! ) makes the scrollmachine
  15. *   to hold for a while .
  16. * - The numbers from '1' to '8' direct the scrollspeed of the 
  17. *   sinus wave ( 1 = very slow  ... 8 = very fast )   
  18. * - As I am a real lazy guy I did not implent an extra driver
  19. *   for the extra symbols !
  20. *   Well , its now up to you to discover them .....
  21. *   Example : a 'n' summits the cauldron
  22. *             a '[' produces a '!'     etc.
  23. *   Feel free to implent the extra symbol selector on your own !!!
  24. * 
  25. * How to make it run :
  26. * 
  27. *
  28. * - Use 'ri' to load the file 'raw!' to $60000
  29. * - Use 'ri' to load a song  to $40000
  30. * - Now assemble the whole crap and type 'g $5b000'
  31. *
  32. * How to pack this small bunch of bytes :
  33. *
  34. * - Assemble this Source 
  35. * - type wi and enter the filename then type , when the comp. is
  36. *   up to ask for the Begin : $5b000 <RETURN> ( HARR HARR )
  37. *   The End-Address is 'Program_end' .... ( That means , that when
  38. *   the End-Address is requested you have to enter 'Program_end !! )
  39. * - Now load Tetrapack and link the code !!
  40. * - load 'raw!' to $60000 with the option 'o' for 'plain'
  41. * - load the code you have saved with the Seka to $5b000  with
  42. *   option 'o' , too.
  43. * - load 'song' to $40000 with .......
  44. * - When Jump Address is requested type '$5b000' !!!
  45. *
  46. * If there are any questions call my BBS 049-412-330 
  47. * PS: If there's not enough Disk-Space just don't load the song
  48. * and delete Line 98,138,143 and the lines from 891 to 'program_end' !
  49. * But DO NOT (!) remove the label 'PROGRAM_END' !!!!!!!!
  50. *     ======        
  51. *
  52.       
  53. org $5b000
  54. load $5b000
  55.  
  56. dmacon   = $dff096    
  57. dmaconr  = $dff002
  58. cop1lch  = $dff080    
  59. copjmp1  = $dff088    
  60.  
  61. intreq   = $dff09c    
  62. intreqr  = $dff01e     
  63. intena   = $dff09a    
  64.  
  65.  
  66. bltapth  = $dff050
  67. bltbpth  = $dff04c
  68. bltcpth  = $dff048
  69. bltdpth  = $dff054
  70. bltamod  = $dff064
  71. bltbmod  = $dff062
  72. bltcmod  = $dff060
  73. bltdmod  = $dff066
  74. bltafwm  = $dff044
  75. bltalwm  = $dff046
  76. bltcon0  = $dff040
  77. bltcon1  = $dff042
  78. bltsize  = $dff058
  79.  
  80. go:
  81. movem.l    d0-d7/a0-a6,-(a7)
  82. move.l    #quantum,$80
  83. trap    0
  84. moveq    #$0000,d0
  85. movem.l    (a7)+,d0-d7/a0-a6
  86. rts
  87. counter:
  88. dc.w 0
  89. quantum:
  90. move.w    #$2700,sr
  91. move.w    #$0020,$dff096
  92. move.w    #$8400,$dff096
  93. bsr    clear
  94. bsr    maker
  95. bsr    start_muzak
  96. bsr    create_cop1
  97. bsr    create_cop2
  98. move.l    #newclist,$dff080
  99. main:
  100. cmp.b    #$4f,$dff006
  101. bne.s    main
  102. move.w  #$8660,bit
  103. move.w  #$9178,bit2
  104. move.l  #$757a8,test3
  105. move.l  #$757a8,tentakel2
  106. add.w   #1,counter
  107. cmp.w   #2,counter
  108. bne     double_buffer
  109. clr.w   counter
  110. move.w  #$3660,bit
  111. move.w  #$4178,bit2
  112. move.l  #$7a7a8,test3
  113. move.l  #$7a7a8,tentakel2
  114. double_buffer:
  115. bsr    sort
  116. movem.l    d0-d7/a0-a6,-(a7)
  117. bsr.l    loesch           
  118. movem.l    (a7)+,d0-d7/a0-a6
  119.  
  120. bsr    sinus
  121.  
  122. bsr    blit2
  123. cmp.w   #1,stop2
  124. bne     okay
  125. add.w   #1,counter2
  126. cmp.w   #280,counter2
  127. bne     out
  128. clr.w   counter2
  129. clr.w   stop2
  130. out:
  131. bra    nix
  132. okay:
  133. bsr    scrolltext
  134. nix:
  135. bsr    replay_muzak
  136. irqend:
  137. btst    #$6,$bfe001
  138. bne.L    main
  139. bsr    oldcopper
  140. bsr    stop_muzak
  141. move.w    #$8020,$dff096
  142. move.w    #$0400,$dff096
  143. move.w    #$2000,sr
  144. rte
  145. stop2:
  146. dc.w 0
  147. counter2:
  148. dc.w 0
  149. puffer:    blk.b    64*4,0
  150. save_stack:    blk.l    1,0
  151. tentakel2:
  152. dc.l 0
  153.  
  154. loesch:
  155. move.l    a7,save_stack    
  156. lea    puffer(pc),a7
  157. movem.l    (a7)+,d0-d7/a0-a6
  158. move.l    save_stack,a7
  159. move.l    tentakel2(pc),a6
  160. add.l    #40*40,a6
  161. move.w    #194,d7
  162. loelo2:
  163. movem.l    a0-a5/d0-d6,-(a6)
  164. subq.w #1,d7
  165. bne loelo2
  166. rts
  167. oldcopper:
  168. move.l    $4,a6
  169. lea    gfxname,a1        
  170. jsr    -408(a6)        
  171. move.l    d0,a1            
  172. move.l    38(a1),$dff080        
  173. jsr    -414(a6)        
  174. rts
  175. letters2:                  ;
  176. dc.b "3 HI THERE ALL YOU SHIThHEADS ["
  177. dc.b "     pnp ICEhT pnp   s"
  178. dc.b " IS BACK WITH ANOTHER SHORT INTRO [[[ " 
  179. end222:
  180. even
  181.  
  182. clear:
  183. lea $6b000,a0
  184. lea $7fffe,a1
  185. loop7:
  186. clr.l (a0)+
  187. cmp.l a1,a0
  188. blt    loop7
  189. rts
  190.  
  191.  
  192. next_letter:
  193. move.l    #$69340,a1    
  194. move.l    letter_pointer,a2
  195. move.b    (a2),d0
  196. cmp.b   #$49,d0
  197. beq    setting
  198. cmp.b   #94,d0
  199. beq    setting2
  200. cmp.b   #$31,d0
  201. beq    setting3
  202. cmp.b   #$32,d0
  203. beq    setting4
  204. cmp.b   #$33,d0
  205. beq    setting5
  206. cmp.b   #$34,d0
  207. beq    setting6
  208. cmp.b   #$35,d0
  209. beq    setting7
  210. cmp.b   #$36,d0
  211. beq    setting8
  212. cmp.b   #$37,d0
  213. beq    setting8
  214. cmp.b   #$38,d0
  215. beq    setting10
  216. cmp.b   #$73,d0
  217. beq    setting11
  218. move.w  #$8,compare
  219. tu:
  220. cmp.b    #$41,d0
  221. bmi    special_font
  222. add.l    #1,letter_pointer
  223. sub.b    #$41,d0
  224. lcont:    
  225. mulu    #$2,d0
  226. add.l    d0,a1
  227. cmp.l   #end222,a2
  228. beq     ender
  229. bra.L    blit
  230. special_font:
  231. lea     $6a000,a1
  232. add.l    #1,letter_pointer
  233. bra.s    lcont
  234. ender:
  235. clr.l   letter_pointer
  236. move.l    reset,letter_pointer
  237. bra.L    next_letter        
  238. rts
  239.  
  240. setting:
  241. move.w #$4,compare
  242. bra    tu
  243. rts
  244.  
  245. setting2:
  246. move.w #$4,compare
  247. bra    tu
  248. rts
  249.  
  250. setting3:
  251. move.l #8,sortfac
  252. bra    special_font
  253. rts
  254.  
  255. setting4:
  256. move.l #12,sortfac
  257. bra    special_font
  258. rts
  259.  
  260. setting5:
  261. move.l #16,sortfac
  262. bra    special_font
  263. rts
  264.  
  265. setting6:
  266. move.l #20,sortfac
  267. bra    special_font
  268. rts
  269.  
  270. setting7:
  271. move.l #24,sortfac
  272. bra    special_font
  273. rts
  274.  
  275. setting8:
  276. move.l #28,sortfac
  277. bra    special_font
  278. rts
  279.  
  280. setting9:
  281. move.l #32,sortfac
  282. bra    special_font
  283. rts
  284.  
  285. setting10:
  286. move.l #36,sortfac
  287. bra    special_font
  288. rts
  289.  
  290. setting11:
  291. move.w #$1,stop2
  292. bra    special_font
  293. rts
  294.  
  295.  
  296.  
  297. blit:        
  298. move.w    #94,bltamod
  299. move.w    #40,bltdmod
  300. move.l  a1,bltapth
  301. move.l    #$72042,bltdpth;$8a4
  302. move.w    #%1111111111111111,bltafwm
  303. move.w    #%1111111111111111,bltalwm
  304. move.w    #%0000100111110000,bltcon0
  305. move.w  #%0000000000000000,bltcon1
  306. move.w    #%0000111100000001,bltsize
  307. clr.w    blitcounter
  308. blw1:    
  309. btst    #6,dmaconr
  310. bne.s    blw1    
  311. rts
  312.  
  313. blit2:        
  314. move.w    #%1111111111111111,bltafwm
  315. move.w    #%1111111111111111,bltalwm
  316. rts
  317. sortex:
  318. rts
  319.  
  320. sort:
  321. cmp.l #sinustabend,multi2
  322. blt   more
  323. ;move.l #multi,multi2
  324. sub.l  #1258,multi2
  325. more:
  326. move.l sortfac,d7
  327. add.l d7,multi2
  328. rts
  329. sortfac:
  330. dc.l 20
  331. multi2:
  332. dc.l multi
  333. test3:
  334. dc.l 0
  335. test:
  336. dc.l 0
  337.  
  338. maker:
  339. lea multi,a0
  340. lea abs_end,a1
  341. looping:
  342. move.w (a0),d5
  343. mulu   #40,d5
  344. move.w d5,(a0)+
  345. cmp.l a0,a1
  346. bne    looping
  347. rts
  348.  
  349. sinus:        
  350. ;move.w  #$0f00,$dff180
  351. move.w    #40,bltamod
  352. move.w    #38,bltbmod
  353. move.w    #38,bltdmod
  354. move.l    #$727d0,test;$727d0
  355. move.w    #19,d4
  356. move.l    multi2,a6
  357.  
  358. move.w    #%0000110111111100,bltcon0
  359. move.w  #%0000000000000010,bltcon1
  360. looper:
  361. move.w  #$8000,d7
  362. moveq  #16,d6
  363. move.l  test3,test2
  364.  
  365. loop:
  366. move.l  test3,d5
  367. sub.l    (a6),d5
  368. addq.l  #2,a6
  369. move.l  test,bltapth
  370. move.l    d5,bltbpth
  371. move.l    d5,bltdpth;$8a4
  372. move.w    d7,bltafwm
  373. move.w    #%0000001110000001,bltsize
  374. lsr.w   #1,d7
  375. subq    #1,d6
  376. bne     loop
  377. addq.l    #2,test
  378. addq.l    #2,test3
  379.  
  380. dbra    d4,looper
  381. move.w  #$0000,$dff180
  382.  
  383. rts
  384.  
  385.  
  386. scrolltext:
  387. addq    #1,blitcounter
  388. clr.w   bltamod
  389. clr.w   bltdmod
  390. move.l    #$7281e,bltapth
  391. move.l    #$7281e,bltdpth
  392. move.w    #%0010100111110000,bltcon0
  393. move.w    #%0000010000010101,bltsize
  394. blw2:    
  395. btst    #6,dmaconr
  396. bne.s    blw2
  397. move.w  compare,d0
  398. cmp.w    blitcounter,d0
  399. bne.s    bcont
  400. bsr    next_letter
  401. bcont:
  402. rts
  403.  
  404. compare:
  405. dc.w 5
  406.  
  407.  
  408. create_cop1:
  409. lea waittab1,a0
  410. lea coleurs,a1
  411. move.w #34,d0
  412. move.w #$5109,d1
  413. loop4:
  414. move.w d1,(a0)+
  415. move.w #$fffe,(a0)+
  416. move.w #$01a0,(a0)+
  417. move.w (a1),(a0)+
  418. move.w #$01a2,(a0)+
  419. move.w (a1),(a0)+
  420. move.w #$01a4,(a0)+
  421. move.w (a1),(a0)+
  422. move.w #$01a6,(a0)+
  423. move.w (a1),(a0)+
  424. move.w #$01a8,(a0)+
  425. move.w (a1),(a0)+
  426. move.w #$01aa,(a0)+
  427. move.w (a1),(a0)+
  428. move.w #$01ac,(a0)+
  429. move.w (a1),(a0)+
  430. move.w #$01ae,(a0)+
  431. move.w (a1),(a0)+
  432. move.w #$01b0,(a0)+
  433. move.w (a1),(a0)+
  434. move.w #$01b2,(a0)+
  435. move.w (a1),(a0)+
  436. move.w #$01b4,(a0)+
  437. move.w (a1),(a0)+
  438. move.w #$01b6,(a0)+
  439. move.w (a1),(a0)+
  440. move.w #$01b8,(a0)+
  441. move.w (a1),(a0)+
  442. move.w #$01ba,(a0)+
  443. move.w (a1),(a0)+
  444. move.w #$01bc,(a0)+
  445. move.w (a1),(a0)+
  446. move.w #$01be,(a0)+
  447. move.w (a1)+,(a0)+
  448. add.w  #$0200,d1
  449. dbra    d0,loop4
  450. rts
  451.  
  452. create_cop2:
  453. lea waittab2,a0
  454. lea coleurs2,a1
  455. move.w #$9709,d1
  456. move.w #51,d0
  457. loop5:
  458. move.w d1,(a0)+
  459. move.w #$fffe,(a0)+
  460. move.w #$0182,(a0)+
  461. move.w (a1)+,(a0)+
  462. add.w  #$0200,d1
  463. dbra   d0,loop5
  464. move.w #$ffd9,(a0)+
  465. move.w #$fffe,(a0)+
  466. move.w #$0182,(a0)+
  467. move.w (a1)+,(a0)+
  468.  
  469. move.w #$00e9,d1
  470. move.w #51,d0
  471. lea    cox,a2
  472. lea    mir,a3
  473. loop6:
  474. move.w d1,(a0)+
  475. move.w #$fffe,(a0)+
  476. move.w #$0108,(a0)+
  477. move.w (a3)+,(a0)+
  478. move.w #$0180,(a0)+
  479. move.w (a2)+,(a0)+
  480. move.w #$0182,(a0)+
  481. move.w (a1)+,(a0)+
  482. add.w  #$0200,d1
  483. dbra   d0,loop6
  484. rts
  485. cox:
  486. dc.w $100,$200,$300,$400,$500,$600,$700,$800
  487. dc.w $900,$a00,$b00,$c00,$d00,$e00,$f00,$004
  488. dc.w $1,$3,$5,$7,$9,$b,$d,$f,$1f,$3f,$5f,$7f
  489. dc.w $9f,$bf,$df,$ff
  490. dc.w 5,5,5,5,5,5,5,5,5,5
  491. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  492. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  493. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  494. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  495. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  496. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  497. dc.w 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  498.  
  499. mir:
  500. dc.w 0,0
  501. dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-120,-120
  502. dc.w -120,-120,-120,-120,-120,-120,-120,-120,-80,0,0
  503. dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  504. dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  505. dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  506. dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  507.  
  508.  
  509. newclist:
  510. dc.w    $008e,$2821,$0090,$44c1,$0092,$0038,$0094,$00d0
  511. dc.w    $0108,0,$010a,0
  512. dc.w    $0102,$0000,$0104,$0000
  513. dc.w    $0182,$0fff
  514. dc.w    $0100,$4200;,$0180,$0000
  515. dc.w    $00e0,$0005,$00e2,$fffe
  516. dc.w    $00e4,$0006,$00e6,$1f3e
  517. dc.w    $00e8,$0006,$00ea,$3e7e
  518. dc.w    $00ec,$0006,$00ee,$5dbe
  519. dc.w    $0180,$0000,$0182,$0ff0
  520. dc.w    $0184,$0fe0,$0186,$0fd0
  521. dc.w    $0188,$0fb0,$018a,$0fa0
  522. dc.w    $018c,$0f90,$018e,$0f80
  523. dc.w    $0190,$0d60,$0192,$0b50
  524. dc.w    $0194,$0a40,$0196,$0840
  525. dc.w    $0198,$0630,$019a,$0520
  526. dc.w    $019c,$0310,$019e,$0100
  527. dc.w    $5009,$fffe,$0100,$5200
  528. dc.w    $0100,$5200,$0180,$0000
  529. dc.w    $00f0,$0007,$00f2
  530. bit:
  531. dc.w    $3660
  532.  
  533. ;dc.w    $01a6,$0fff
  534. waittab1:
  535. blk.w   1190,0  
  536. dc.w    $9709,$fffe
  537. dc.w    $0100,$1200
  538. dc.w    $00e0,$0007,$00e2
  539. bit2:
  540. dc.w    $4178
  541. dc.w    $0182,$08f0
  542. waittab2:
  543. blk.w   1440,0
  544.   
  545. dc.w    $ffff,$fffe
  546. ;scrollm:
  547. dc.b " AND AGAIN SOME STUNNING FX FROM THE GRANDMASTER ICE-T !"
  548. end:
  549. even
  550. ;zeiger:
  551. dc.l    0
  552. oldclist:
  553. dc.l    0
  554. gfxbase:
  555. dc.l    0
  556. gfxname:
  557. dc.b    "graphics.library",0
  558. even
  559. blitcounter:
  560. dc.w    0
  561.  
  562. coleurs:
  563. dc.w $f00,$f10,$f20,$f30,$f40,$f50,$f60,$f70,$f80,$f90,$fa0,$fb0
  564. dc.w $fc0,$fd0,$fe0,$ff0,$ef0,$df0,$cf0,$bf0,$af0,$9f0,$8f0,$7f0
  565. dc.w $6f0,$5f0,$4f0,$3f0
  566. coleurs2:
  567. dc.w $2f0,$1f0,$0f0,$0f1,$0f2,$0f3,$0f4,$0f5
  568. dc.w $0f6,$0f7,$0f8,$0f9,$0fa,$0fb,$0fc,$0fd,$0fe,$0ff,$0ef,$0df
  569. dc.w $0cf,$0bf,$0af,$09f,$08f,$07f,$06f,$05f,$04f,$03f,$02f,$01f
  570. dc.w $00f,$10f,$20f,$30f,$40f,$50f,$60f,$70f,$80f
  571. dc.w $90f,$a0f,$b0f
  572. dc.w $c0f,$d0f,$e0f,$f0f,$f0e,$f0d,$f0c,$f0a,$f09,$f08,$f07,$f06
  573. dc.w $f05,$f04,$f03,$f02,$f01
  574.  
  575. dc.w $f00,$f10,$f20,$f30,$f40,$f50,$f60,$f70,$f80,$f90,$05f,$05d
  576. dc.w $05b,$059,$057,$055,$053,$051,$cf0,$bf0,$af0,$9f0,$8f0,$7f0
  577. dc.w $6f0,$5f0,$4f0,$3f0,$2f0,$fff,$0f0,$0f1,$0f2,$0f3,$0f4,$0f5
  578. dc.w $0f6,$0f7,$0f8,$0f9,$0fa,$0fb,$0fc,$0fd,$0fe,$0ff,$0ef,$0df
  579. dc.w $0cf,$0bf,$0af,$09f,$08f,$07f,$06f,$05f,$04f,$03f,$02f,$01f
  580. dc.w $00f,$10f,$20f,$fff,$40f,$50f,$60f,$70f,$80f,$90f,$a0f,$b0f
  581. dc.w $c0f,$d0f,$e0f,$f0f,$f0e,$f0d,$f0c,$f0a,$f09,$f08,$f07,$f06
  582. dc.w $f05,$f04,$f03,$f02,$f01
  583.  
  584.  
  585. letter_pointer:
  586. dc.l    letters2
  587.  
  588. reset:
  589. dc.l    letters2
  590.  
  591.  
  592.  
  593.  
  594. even
  595.  
  596. ; mover ! 
  597.  
  598.  
  599.  
  600. test2:
  601. dc.l $637f8
  602.  
  603.  
  604.  
  605. sinfac:
  606. dc.l    0
  607.  
  608. factor:
  609. dc.l    40
  610.  
  611. multi:
  612. sydat:
  613. dc.l    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,
  614. dc.l    $00000000,$00000001,$00010001,$00010001,$00010002,$00020002,
  615. dc.l    $00020003,$00030003,$00030004,$00040004,$00050005,$00050006,
  616. dc.l    $00060006,$00070007,$00070008,$00080009,$00090009,$000A000A,
  617. dc.l    $000B000B,$000C000C,$000D000D,$000E000E,$000F000F,$00100010,
  618. dc.l    $00110012,$00120013,$00130014,$00150015,$00160016,$00170018,
  619. dc.l    $00180019,$001A001A,$001B001C,$001C001D,$001E001F,$001F0020,
  620. dc.l    $00210022,$00220023,$00240025,$00250026,$00270028,$00290029,
  621. dc.l    $002A002B,$002C002D,$002D002E,$002F0030,$00310032,$00330033,
  622. dc.l    $00340035,$00360037,$00380039,$003A003B,$003C003C,$003D003E,
  623. dc.l    $003F0040,$00410042,$00430044,$00450046,$00470048,$0049004A,
  624. dc.l    $004B004C,$004D004E,$004F0050,$00510052,$00530053,$00540055,
  625. dc.l    $00560057,$00580059,$005A005B,$005C005D,$005E005F,$00600061,
  626. dc.l    $00620063,$00640065,$00660067,$00680069,$006A006B,$006C006D,
  627. dc.l    $006E006F,$00700071,$00720073,$00740075,$00760077,$00780079,
  628. dc.l    $007A007B,$007C007D,$007E007F,$00800081,$00820083,$00840085,
  629. dc.l    $00860087,$00880089,$0089008A,$008B008C,$008D008E,$008F0090,
  630. dc.l    $00910092,$00920093,$00940095,$00960097,$00980099,$0099009A,
  631. dc.l    $009B009C,$009D009E,$009E009F,$00A000A1,$00A200A2,$00A300A4,
  632. dc.l    $00A500A5,$00A600A7,$00A800A8,$00A900AA,$00AA00AB,$00AC00AD,
  633. dc.l    $00AD00AE,$00AF00AF,$00B000B1,$00B100B2,$00B200B3,$00B400B4,
  634. dc.l    $00B500B5,$00B600B7,$00B700B8,$00B800B9,$00B900BA,$00BA00BB,
  635. dc.l    $00BB00BC,$00BC00BD,$00BD00BD,$00BE00BE,$00BF00BF,$00C000C0,
  636. dc.l    $00C000C1,$00C100C1,$00C200C2,$00C200C3,$00C300C3,$00C400C4,
  637. dc.l    $00C400C4,$00C500C5,$00C500C5,$00C500C6,$00C600C6,$00C600C6,
  638. dc.l    $00C600C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  639. dc.l    $00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  640. dc.l    $00C700C7,$00C700C7,$00C700C6,$00C600C6,$00C600C6,$00C600C5,
  641. dc.l    $00C500C5,$00C500C4,$00C400C4,$00C400C3,$00C300C3,$00C200C2,
  642. dc.l    $00C200C1,$00C100C1,$00C000C0,$00C000BF,$00BF00BE,$00BE00BE,
  643. dc.l    $00BD00BD,$00BC00BC,$00BB00BB,$00BA00BA,$00B900B9,$00B800B8,
  644. dc.l    $00B700B7,$00B600B6,$00B500B4,$00B400B3,$00B300B2,$00B100B1,
  645. dc.l    $00B000AF,$00AF00AE,$00AD00AD,$00AC00AB,$00AB00AA,$00A900A9,
  646. dc.l    $00A800A7,$00A600A6,$00A500A4,$00A300A3,$00A200A1,$00A0009F,
  647. dc.l    $009F009E,$009D009C,$009B009B,$009A0099,$00980097,$00960095,
  648. dc.l    $00950094,$00930092,$00910090,$008F008E,$008D008C,$008C008B,
  649. dc.l    $008A0089,$00880087,$00860085,$00840083,$00820081,$0080007F,
  650. dc.l    $007E007D,$007C007C,$007B007A,$00790078,$00770076,$00750074,
  651. dc.l    $00730072,$00710070,$006F006E,$006D006C,$006B006A,$00690068,
  652. dc.l    $00670066,$00650064,$00630062,$00610060,$005F005E,$005D005C,
  653. dc.l    $005B005A,$00590058,$00570056,$00550054,$00530052,$00510050,
  654. dc.l    $004F004E,$004D004C,$004B004A,$00490048,$00470046,$00450044,
  655. dc.l    $00430042,$00410040,$0040003F,$003E003D,$003C003B,$003A0039,
  656. dc.l    $00380037,$00360036,$00350034,$00330032,$00310030,$002F002F,
  657. dc.l    $002E002D,$002C002B,$002A002A,$00290028,$00270026,$00260025,
  658. dc.l    $00240023,$00220022,$00210020,$0020001F,$001E001D,$001D001C,
  659. dc.l    $001B001B,$001A0019,$00190018,$00170017,$00160015,$00150014,
  660. dc.l    $00130013,$00120012,$00110011,$0010000F,$000F000E,$000E000D,
  661. dc.l    $000D000C,$000C000B,$000B000A,$000A000A,$00090009,$00080008,
  662. dc.l    $00080007,$00070006,$00060006,$00050005,$00050004,$00040004,
  663. dc.l    $00030003,$00030003,$00020002,$00020002,$00020001,$00010001,
  664. dc.l    $00010001,$00010000,$00000000,$00000000,$00000000,$00000000,
  665. dc.l    $00000000,$00000000
  666. dc.w    $0000
  667. dc.l    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,
  668. dc.l    $00000000,$00000001,$00010001,$00010001,$00010002,$00020002,
  669. dc.l    $00020003,$00030003,$00030004,$00040004,$00050005,$00050006,
  670. dc.l    $00060006,$00070007,$00070008,$00080009,$00090009,$000A000A,
  671. dc.l    $000B000B,$000C000C,$000D000D,$000E000E,$000F000F,$00100010,
  672. dc.l    $00110012,$00120013,$00130014,$00150015,$00160016,$00170018,
  673. dc.l    $00180019,$001A001A,$001B001C,$001C001D,$001E001F,$001F0020,
  674. dc.l    $00210022,$00220023,$00240025,$00250026,$00270028,$00290029,
  675. dc.l    $002A002B,$002C002D,$002D002E,$002F0030,$00310032,$00330033,
  676. dc.l    $00340035,$00360037,$00380039,$003A003B,$003C003C,$003D003E,
  677. dc.l    $003F0040,$00410042,$00430044,$00450046,$00470048,$0049004A,
  678. dc.l    $004B004C,$004D004E,$004F0050,$00510052,$00530053,$00540055,
  679. dc.l    $00560057,$00580059,$005A005B,$005C005D,$005E005F,$00600061,
  680. dc.l    $00620063,$00640065,$00660067,$00680069,$006A006B,$006C006D,
  681. dc.l    $006E006F,$00700071,$00720073,$00740075,$00760077,$00780079,
  682. dc.l    $007A007B,$007C007D,$007E007F,$00800081,$00820083,$00840085,
  683. dc.l    $00860087,$00880089,$0089008A,$008B008C,$008D008E,$008F0090,
  684. dc.l    $00910092,$00920093,$00940095,$00960097,$00980099,$0099009A,
  685. dc.l    $009B009C,$009D009E,$009E009F,$00A000A1,$00A200A2,$00A300A4,
  686. dc.l    $00A500A5,$00A600A7,$00A800A8,$00A900AA,$00AA00AB,$00AC00AD,
  687. dc.l    $00AD00AE,$00AF00AF,$00B000B1,$00B100B2,$00B200B3,$00B400B4,
  688. dc.l    $00B500B5,$00B600B7,$00B700B8,$00B800B9,$00B900BA,$00BA00BB,
  689. dc.l    $00BB00BC,$00BC00BD,$00BD00BD,$00BE00BE,$00BF00BF,$00C000C0,
  690. dc.l    $00C000C1,$00C100C1,$00C200C2,$00C200C3,$00C300C3,$00C400C4,
  691. dc.l    $00C400C4,$00C500C5,$00C500C5,$00C500C6,$00C600C6,$00C600C6,
  692. dc.l    $00C600C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  693. dc.l    $00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  694. dc.l    $00C700C7,$00C700C7,$00C700C6,$00C600C6,$00C600C6,$00C600C5,
  695. dc.l    $00C500C5,$00C500C4,$00C400C4,$00C400C3,$00C300C3,$00C200C2,
  696. dc.l    $00C200C1,$00C100C1,$00C000C0,$00C000BF,$00BF00BE,$00BE00BE,
  697. dc.l    $00BD00BD,$00BC00BC,$00BB00BB,$00BA00BA,$00B900B9,$00B800B8,
  698. dc.l    $00B700B7,$00B600B6,$00B500B4,$00B400B3,$00B300B2,$00B100B1,
  699. dc.l    $00B000AF,$00AF00AE,$00AD00AD,$00AC00AB,$00AB00AA,$00A900A9,
  700. dc.l    $00A800A7,$00A600A6,$00A500A4,$00A300A3,$00A200A1,$00A0009F,
  701. dc.l    $009F009E,$009D009C,$009B009B,$009A0099,$00980097,$00960095,
  702. dc.l    $00950094,$00930092,$00910090,$008F008E,$008D008C,$008C008B,
  703. dc.l    $008A0089,$00880087,$00860085,$00840083,$00820081,$0080007F,
  704. dc.l    $007E007D,$007C007C,$007B007A,$00790078,$00770076,$00750074,
  705. dc.l    $00730072,$00710070,$006F006E,$006D006C,$006B006A,$00690068,
  706. dc.l    $00670066,$00650064,$00630062,$00610060,$005F005E,$005D005C,
  707. dc.l    $005B005A,$00590058,$00570056,$00550054,$00530052,$00510050,
  708. dc.l    $004F004E,$004D004C,$004B004A,$00490048,$00470046,$00450044,
  709. dc.l    $00430042,$00410040,$0040003F,$003E003D,$003C003B,$003A0039,
  710. dc.l    $00380037,$00360036,$00350034,$00330032,$00310030,$002F002F,
  711. dc.l    $002E002D,$002C002B,$002A002A,$00290028,$00270026,$00260025,
  712. dc.l    $00240023,$00220022,$00210020,$0020001F,$001E001D,$001D001C,
  713. dc.l    $001B001B,$001A0019,$00190018,$00170017,$00160015,$00150014,
  714. dc.l    $00130013,$00120012,$00110011,$0010000F,$000F000E,$000E000D,
  715. dc.l    $000D000C,$000C000B,$000B000A,$000A000A,$00090009,$00080008,
  716. dc.l    $00080007,$00070006,$00060006,$00050005,$00050004,$00040004,
  717. dc.l    $00030003,$00030003,$00020002,$00020002,$00020001,$00010001,
  718. dc.l    $00010001,$00010000,$00000000,$00000000,$00000000,$00000000,
  719. dc.l    $00000000,$00000000
  720. dc.w    $0000
  721. syend:    
  722. dc.l    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,
  723. dc.l    $00000000,$00000001,$00010001,$00010001,$00010002,$00020002,
  724. dc.l    $00020003,$00030003,$00030004,$00040004,$00050005,$00050006,
  725. dc.l    $00060006,$00070007,$00070008,$00080009,$00090009,$000A000A,
  726. dc.l    $000B000B,$000C000C,$000D000D,$000E000E,$000F000F,$00100010,
  727. dc.l    $00110012,$00120013,$00130014,$00150015,$00160016,$00170018,
  728. dc.l    $00180019,$001A001A,$001B001C,$001C001D,$001E001F,$001F0020,
  729. dc.l    $00210022,$00220023,$00240025,$00250026,$00270028,$00290029,
  730. dc.l    $002A002B,$002C002D,$002D002E,$002F0030,$00310032,$00330033,
  731. dc.l    $00340035,$00360037,$00380039,$003A003B,$003C003C,$003D003E,
  732. dc.l    $003F0040,$00410042,$00430044,$00450046,$00470048,$0049004A,
  733. dc.l    $004B004C,$004D004E,$004F0050,$00510052,$00530053,$00540055,
  734. dc.l    $00560057,$00580059,$005A005B,$005C005D,$005E005F,$00600061,
  735. dc.l    $00620063,$00640065,$00660067,$00680069,$006A006B,$006C006D,
  736. dc.l    $006E006F,$00700071,$00720073,$00740075,$00760077,$00780079,
  737. dc.l    $007A007B,$007C007D,$007E007F,$00800081,$00820083,$00840085,
  738. dc.l    $00860087,$00880089,$0089008A,$008B008C,$008D008E,$008F0090,
  739. dc.l    $00910092,$00920093,$00940095,$00960097,$00980099,$0099009A,
  740. dc.l    $009B009C,$009D009E,$009E009F,$00A000A1,$00A200A2,$00A300A4,
  741. dc.l    $00A500A5,$00A600A7,$00A800A8,$00A900AA,$00AA00AB,$00AC00AD,
  742. dc.l    $00AD00AE,$00AF00AF,$00B000B1,$00B100B2,$00B200B3,$00B400B4,
  743. dc.l    $00B500B5,$00B600B7,$00B700B8,$00B800B9,$00B900BA,$00BA00BB,
  744. dc.l    $00BB00BC,$00BC00BD,$00BD00BD,$00BE00BE,$00BF00BF,$00C000C0,
  745. dc.l    $00C000C1,$00C100C1,$00C200C2,$00C200C3,$00C300C3,$00C400C4,
  746. dc.l    $00C400C4,$00C500C5,$00C500C5,$00C500C6,$00C600C6,$00C600C6,
  747. dc.l    $00C600C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  748. dc.l    $00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  749. dc.l    $00C700C7,$00C700C7,$00C700C6,$00C600C6,$00C600C6,$00C600C5,
  750. dc.l    $00C500C5,$00C500C4,$00C400C4,$00C400C3,$00C300C3,$00C200C2,
  751. dc.l    $00C200C1,$00C100C1,$00C000C0,$00C000BF,$00BF00BE,$00BE00BE,
  752. dc.l    $00BD00BD,$00BC00BC,$00BB00BB,$00BA00BA,$00B900B9,$00B800B8,
  753. dc.l    $00B700B7,$00B600B6,$00B500B4,$00B400B3,$00B300B2,$00B100B1,
  754. dc.l    $00B000AF,$00AF00AE,$00AD00AD,$00AC00AB,$00AB00AA,$00A900A9,
  755. dc.l    $00A800A7,$00A600A6,$00A500A4,$00A300A3,$00A200A1,$00A0009F,
  756. dc.l    $009F009E,$009D009C,$009B009B,$009A0099,$00980097,$00960095,
  757. dc.l    $00950094,$00930092,$00910090,$008F008E,$008D008C,$008C008B,
  758. dc.l    $008A0089,$00880087,$00860085,$00840083,$00820081,$0080007F,
  759. dc.l    $007E007D,$007C007C,$007B007A,$00790078,$00770076,$00750074,
  760. dc.l    $00730072,$00710070,$006F006E,$006D006C,$006B006A,$00690068,
  761. dc.l    $00670066,$00650064,$00630062,$00610060,$005F005E,$005D005C,
  762. dc.l    $005B005A,$00590058,$00570056,$00550054,$00530052,$00510050,
  763. dc.l    $004F004E,$004D004C,$004B004A,$00490048,$00470046,$00450044,
  764. dc.l    $00430042,$00410040,$0040003F,$003E003D,$003C003B,$003A0039,
  765. dc.l    $00380037,$00360036,$00350034,$00330032,$00310030,$002F002F,
  766. dc.l    $002E002D,$002C002B,$002A002A,$00290028,$00270026,$00260025,
  767. dc.l    $00240023,$00220022,$00210020,$0020001F,$001E001D,$001D001C,
  768. dc.l    $001B001B,$001A0019,$00190018,$00170017,$00160015,$00150014,
  769. dc.l    $00130013,$00120012,$00110011,$0010000F,$000F000E,$000E000D,
  770. dc.l    $000D000C,$000C000B,$000B000A,$000A000A,$00090009,$00080008,
  771. dc.l    $00080007,$00070006,$00060006,$00050005,$00050004,$00040004,
  772. dc.l    $00030003,$00030003,$00020002,$00020002,$00020001,$00010001,
  773. dc.l    $00010001,$00010000,$00000000,$00000000,$00000000,$00000000,
  774. dc.l    $00000000,$00000000
  775. dc.w    $0000
  776.  
  777. sinustabend:
  778. dc.l    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,
  779. dc.l    $00000000,$00000001,$00010001,$00010001,$00010002,$00020002,
  780. dc.l    $00020003,$00030003,$00030004,$00040004,$00050005,$00050006,
  781. dc.l    $00060006,$00070007,$00070008,$00080009,$00090009,$000A000A,
  782. dc.l    $000B000B,$000C000C,$000D000D,$000E000E,$000F000F,$00100010,
  783. dc.l    $00110012,$00120013,$00130014,$00150015,$00160016,$00170018,
  784. dc.l    $00180019,$001A001A,$001B001C,$001C001D,$001E001F,$001F0020,
  785. dc.l    $00210022,$00220023,$00240025,$00250026,$00270028,$00290029,
  786. dc.l    $002A002B,$002C002D,$002D002E,$002F0030,$00310032,$00330033,
  787. dc.l    $00340035,$00360037,$00380039,$003A003B,$003C003C,$003D003E,
  788. dc.l    $003F0040,$00410042,$00430044,$00450046,$00470048,$0049004A,
  789. dc.l    $004B004C,$004D004E,$004F0050,$00510052,$00530053,$00540055,
  790. dc.l    $00560057,$00580059,$005A005B,$005C005D,$005E005F,$00600061,
  791. dc.l    $00620063,$00640065,$00660067,$00680069,$006A006B,$006C006D,
  792. dc.l    $006E006F,$00700071,$00720073,$00740075,$00760077,$00780079,
  793. dc.l    $007A007B,$007C007D,$007E007F,$00800081,$00820083,$00840085,
  794. dc.l    $00860087,$00880089,$0089008A,$008B008C,$008D008E,$008F0090,
  795. dc.l    $00910092,$00920093,$00940095,$00960097,$00980099,$0099009A,
  796. dc.l    $009B009C,$009D009E,$009E009F,$00A000A1,$00A200A2,$00A300A4,
  797. dc.l    $00A500A5,$00A600A7,$00A800A8,$00A900AA,$00AA00AB,$00AC00AD,
  798. dc.l    $00AD00AE,$00AF00AF,$00B000B1,$00B100B2,$00B200B3,$00B400B4,
  799. dc.l    $00B500B5,$00B600B7,$00B700B8,$00B800B9,$00B900BA,$00BA00BB,
  800. dc.l    $00BB00BC,$00BC00BD,$00BD00BD,$00BE00BE,$00BF00BF,$00C000C0,
  801. dc.l    $00C000C1,$00C100C1,$00C200C2,$00C200C3,$00C300C3,$00C400C4,
  802. dc.l    $00C400C4,$00C500C5,$00C500C5,$00C500C6,$00C600C6,$00C600C6,
  803. dc.l    $00C600C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  804. dc.l    $00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  805. dc.l    $00C700C7,$00C700C7,$00C700C6,$00C600C6,$00C600C6,$00C600C5,
  806. dc.l    $00C500C5,$00C500C4,$00C400C4,$00C400C3,$00C300C3,$00C200C2,
  807. dc.l    $00C200C1,$00C100C1,$00C000C0,$00C000BF,$00BF00BE,$00BE00BE,
  808. dc.l    $00BD00BD,$00BC00BC,$00BB00BB,$00BA00BA,$00B900B9,$00B800B8,
  809. dc.l    $00B700B7,$00B600B6,$00B500B4,$00B400B3,$00B300B2,$00B100B1,
  810. dc.l    $00B000AF,$00AF00AE,$00AD00AD,$00AC00AB,$00AB00AA,$00A900A9,
  811. dc.l    $00A800A7,$00A600A6,$00A500A4,$00A300A3,$00A200A1,$00A0009F,
  812. dc.l    $009F009E,$009D009C,$009B009B,$009A0099,$00980097,$00960095,
  813. dc.l    $00950094,$00930092,$00910090,$008F008E,$008D008C,$008C008B,
  814. dc.l    $008A0089,$00880087,$00860085,$00840083,$00820081,$0080007F,
  815. dc.l    $007E007D,$007C007C,$007B007A,$00790078,$00770076,$00750074,
  816. dc.l    $00730072,$00710070,$006F006E,$006D006C,$006B006A,$00690068,
  817. dc.l    $00670066,$00650064,$00630062,$00610060,$005F005E,$005D005C,
  818. dc.l    $005B005A,$00590058,$00570056,$00550054,$00530052,$00510050,
  819. dc.l    $004F004E,$004D004C,$004B004A,$00490048,$00470046,$00450044,
  820. dc.l    $00430042,$00410040,$0040003F,$003E003D,$003C003B,$003A0039,
  821. dc.l    $00380037,$00360036,$00350034,$00330032,$00310030,$002F002F,
  822. dc.l    $002E002D,$002C002B,$002A002A,$00290028,$00270026,$00260025,
  823. dc.l    $00240023,$00220022,$00210020,$0020001F,$001E001D,$001D001C,
  824. dc.l    $001B001B,$001A0019,$00190018,$00170017,$00160015,$00150014,
  825. dc.l    $00130013,$00120012,$00110011,$0010000F,$000F000E,$000E000D,
  826. dc.l    $000D000C,$000C000B,$000B000A,$000A000A,$00090009,$00080008,
  827. dc.l    $00080007,$00070006,$00060006,$00050005,$00050004,$00040004,
  828. dc.l    $00030003,$00030003,$00020002,$00020002,$00020001,$00010001,
  829. dc.l    $00010001,$00010000,$00000000,$00000000,$00000000,$00000000,
  830. dc.l    $00000000,$00000000
  831. dc.w    $0000
  832.  
  833. dc.l    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,
  834. dc.l    $00000000,$00000001,$00010001,$00010001,$00010002,$00020002,
  835. dc.l    $00020003,$00030003,$00030004,$00040004,$00050005,$00050006,
  836. dc.l    $00060006,$00070007,$00070008,$00080009,$00090009,$000A000A,
  837. dc.l    $000B000B,$000C000C,$000D000D,$000E000E,$000F000F,$00100010,
  838. dc.l    $00110012,$00120013,$00130014,$00150015,$00160016,$00170018,
  839. dc.l    $00180019,$001A001A,$001B001C,$001C001D,$001E001F,$001F0020,
  840. dc.l    $00210022,$00220023,$00240025,$00250026,$00270028,$00290029,
  841. dc.l    $002A002B,$002C002D,$002D002E,$002F0030,$00310032,$00330033,
  842. dc.l    $00340035,$00360037,$00380039,$003A003B,$003C003C,$003D003E,
  843. dc.l    $003F0040,$00410042,$00430044,$00450046,$00470048,$0049004A,
  844. dc.l    $004B004C,$004D004E,$004F0050,$00510052,$00530053,$00540055,
  845. dc.l    $00560057,$00580059,$005A005B,$005C005D,$005E005F,$00600061,
  846. dc.l    $00620063,$00640065,$00660067,$00680069,$006A006B,$006C006D,
  847. dc.l    $006E006F,$00700071,$00720073,$00740075,$00760077,$00780079,
  848. dc.l    $007A007B,$007C007D,$007E007F,$00800081,$00820083,$00840085,
  849. dc.l    $00860087,$00880089,$0089008A,$008B008C,$008D008E,$008F0090,
  850. dc.l    $00910092,$00920093,$00940095,$00960097,$00980099,$0099009A,
  851. dc.l    $009B009C,$009D009E,$009E009F,$00A000A1,$00A200A2,$00A300A4,
  852. dc.l    $00A500A5,$00A600A7,$00A800A8,$00A900AA,$00AA00AB,$00AC00AD,
  853. dc.l    $00AD00AE,$00AF00AF,$00B000B1,$00B100B2,$00B200B3,$00B400B4,
  854. dc.l    $00B500B5,$00B600B7,$00B700B8,$00B800B9,$00B900BA,$00BA00BB,
  855. dc.l    $00BB00BC,$00BC00BD,$00BD00BD,$00BE00BE,$00BF00BF,$00C000C0,
  856. dc.l    $00C000C1,$00C100C1,$00C200C2,$00C200C3,$00C300C3,$00C400C4,
  857. dc.l    $00C400C4,$00C500C5,$00C500C5,$00C500C6,$00C600C6,$00C600C6,
  858. dc.l    $00C600C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  859. dc.l    $00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,$00C700C7,
  860. dc.l    $00C700C7,$00C700C7,$00C700C6,$00C600C6,$00C600C6,$00C600C5,
  861. dc.l    $00C500C5,$00C500C4,$00C400C4,$00C400C3,$00C300C3,$00C200C2,
  862. dc.l    $00C200C1,$00C100C1,$00C000C0,$00C000BF,$00BF00BE,$00BE00BE,
  863. dc.l    $00BD00BD,$00BC00BC,$00BB00BB,$00BA00BA,$00B900B9,$00B800B8,
  864. dc.l    $00B700B7,$00B600B6,$00B500B4,$00B400B3,$00B300B2,$00B100B1,
  865. dc.l    $00B000AF,$00AF00AE,$00AD00AD,$00AC00AB,$00AB00AA,$00A900A9,
  866. dc.l    $00A800A7,$00A600A6,$00A500A4,$00A300A3,$00A200A1,$00A0009F,
  867. dc.l    $009F009E,$009D009C,$009B009B,$009A0099,$00980097,$00960095,
  868. dc.l    $00950094,$00930092,$00910090,$008F008E,$008D008C,$008C008B,
  869. dc.l    $008A0089,$00880087,$00860085,$00840083,$00820081,$0080007F,
  870. dc.l    $007E007D,$007C007C,$007B007A,$00790078,$00770076,$00750074,
  871. dc.l    $00730072,$00710070,$006F006E,$006D006C,$006B006A,$00690068,
  872. dc.l    $00670066,$00650064,$00630062,$00610060,$005F005E,$005D005C,
  873. dc.l    $005B005A,$00590058,$00570056,$00550054,$00530052,$00510050,
  874. dc.l    $004F004E,$004D004C,$004B004A,$00490048,$00470046,$00450044,
  875. dc.l    $00430042,$00410040,$0040003F,$003E003D,$003C003B,$003A0039,
  876. dc.l    $00380037,$00360036,$00350034,$00330032,$00310030,$002F002F,
  877. dc.l    $002E002D,$002C002B,$002A002A,$00290028,$00270026,$00260025,
  878. dc.l    $00240023,$00220022,$00210020,$0020001F,$001E001D,$001D001C,
  879. dc.l    $001B001B,$001A0019,$00190018,$00170017,$00160015,$00150014,
  880. dc.l    $00130013,$00120012,$00110011,$0010000F,$000F000E,$000E000D,
  881. dc.l    $000D000C,$000C000B,$000B000A,$000A000A,$00090009,$00080008,
  882. dc.l    $00080007,$00070006,$00060006,$00050005,$00050004,$00040004,
  883. dc.l    $00030003,$00030003,$00020002,$00020002,$00020001,$00010001,
  884. dc.l    $00010001,$00010000,$00000000,$00000000,$00000000,$00000000,
  885. dc.l    $00000000,$00000000
  886. dc.w    $0000
  887. abs_end:
  888. even
  889.  
  890. start_muzak:
  891.     move.l    #data,muzakoffset    ;** get offset
  892.  
  893. init0:    move.l    muzakoffset,a0        ;** get highest used pattern
  894.     add.l    #472,a0
  895.     move.l    #$80,d0
  896.     clr.l    d1
  897. init1:    move.l    d1,d2
  898.     subq.w    #1,d0
  899. init2:    move.b    (a0)+,d1
  900.     cmp.b    d2,d1
  901.     bgt.s    init1
  902.     dbf    d0,init2
  903.     addq.b    #1,d2
  904.  
  905. init3:    move.l    muzakoffset,a0        ;** calc samplepointers
  906.     lea    pointers(pc),a1
  907.     lsl.l    #8,d2
  908.     lsl.l    #2,d2
  909.     add.l    #600,d2
  910.     add.l    a0,d2
  911.     moveq    #14,d0
  912. init4:    move.l    d2,(a1)+
  913.     clr.l    d1
  914.     move.w    42(a0),d1
  915.     lsl.l    #1,d1
  916.     add.l    d1,d2
  917.     add.l    #30,a0
  918.     dbf    d0,init4
  919.  
  920. init5:    clr.w    $dff0a8            ;** clear used values
  921.     clr.w    $dff0b8
  922.     clr.w    $dff0c8
  923.     clr.w    $dff0d8
  924.     clr.w    timpos
  925.     clr.l    trkpos
  926.     clr.l    patpos
  927.  
  928. init6:    move.l    muzakoffset,a0        ;** initialize timer irq
  929.     move.b    470(a0),numpat+1    ;number of patterns
  930. ;    move.l    $6c.w,lev3save+2
  931. ;    move.l    #lev3interrupt,$6c.w
  932.     rts
  933.  
  934. stop_muzak:
  935. ;    move.l    lev3save+2,$6c.w
  936.     clr.w    $dff0a8
  937.     clr.w    $dff0b8
  938.     clr.w    $dff0c8
  939.     clr.w    $dff0d8
  940.     move.w    #$f,$dff096
  941.     rts
  942.  
  943. replay_muzak:
  944.     movem.l    d0-d7/a0-a6,-(a7)
  945.     addq.w    #1,timpos
  946. speed:    cmp.w    #6,timpos
  947.     beq.L    replaystep
  948.  
  949. chaneleffects:                ;** seek effects
  950.     lea    datach0(pc),a6
  951.     tst.b    3(a6)
  952.     beq.s    ceff1
  953.     lea    $dff0a0,a5
  954.     bsr.s    ceff5
  955. ceff1:    lea    datach1(pc),a6
  956.     tst.b    3(a6)
  957.     beq.s    ceff2
  958.     lea    $dff0b0,a5
  959.     bsr.s    ceff5
  960. ceff2:    lea    datach2(pc),a6
  961.     tst.b    3(a6)
  962.     beq.s    ceff3
  963.     lea    $dff0c0,a5
  964.     bsr.s    ceff5
  965. ceff3:    lea    datach3(pc),a6
  966.     tst.b    3(a6)
  967.     beq.s    ceff4
  968.     lea    $dff0d0,a5
  969.     bsr.s    ceff5
  970. ceff4:    movem.l    (a7)+,d0-d7/a0-a6
  971.     rts
  972.  
  973. ceff5:    move.b    2(a6),d0        ;room for some more
  974.     and.b    #$f,d0            ;implementations below
  975.     tst.b    d0
  976.     beq.s    arpreggiato
  977.     cmp.b    #1,d0
  978.     beq.L    pitchup
  979.     cmp.b    #2,d0
  980.     beq.L    pitchdown
  981.     cmp.b    #12,d0
  982.     beq.L    setvol
  983.     cmp.b    #14,d0
  984.     beq.L    setfilt
  985.     cmp.b    #15,d0
  986.     beq.L    setspeed
  987.     rts
  988.  
  989. arpreggiato:                ;** spread by time
  990.     cmp.w    #1,timpos
  991.     beq.s    arp1
  992.     cmp.w    #2,timpos
  993.     beq.s    arp2
  994.     cmp.w    #3,timpos
  995.     beq.s    arp3
  996.     cmp.w    #4,timpos
  997.     beq.s    arp1
  998.     cmp.w    #5,timpos
  999.     beq.s    arp2
  1000.     rts
  1001.  
  1002. arp1:    clr.l    d0            ;** get higher note-values
  1003.     move.b    3(a6),d0        ;   or play original
  1004.     lsr.b    #4,d0
  1005.     bra.s    arp4
  1006. arp2:    clr.l    d0
  1007.     move.b    3(a6),d0
  1008.     and.b    #$f,d0
  1009.     bra.s    arp4
  1010. arp3:    move.w    16(a6),d2
  1011.     bra.s    arp6
  1012. arp4:    lsl.w    #1,d0
  1013.     clr.l    d1
  1014.     move.w    16(a6),d1
  1015.     lea    notetable,a0
  1016. arp5:    move.w    (a0,d0.w),d2
  1017.     cmp.w    (a0),d1
  1018.     beq.s    arp6
  1019.     addq.l    #2,a0
  1020.     bra.s    arp5
  1021. arp6:    move.w    d2,6(a5)
  1022.     rts
  1023.  
  1024. pitchdown:
  1025.     bsr.s    newrou
  1026.     clr.l    d0
  1027.     move.b    3(a6),d0
  1028.     and.b    #$f,d0
  1029.     add.w    d0,(a4)
  1030.     cmp.w    #$358,(a4)
  1031.     bmi.s    ok1
  1032.     move.w    #$358,(a4)
  1033. ok1:    move.w    (a4),6(a5)
  1034.     rts
  1035.  
  1036. pitchup:bsr.s    newrou
  1037.     clr.l    d0
  1038.     move.b    3(a6),d0
  1039.     and.b    #$f,d0
  1040.     sub.w    d0,(a4)
  1041.     cmp.w    #$71,(a4)
  1042.     bpl.s    ok2
  1043.     move.w    #$71,(a4)
  1044. ok2:    move.w    (a4),6(a5)
  1045.     rts
  1046.  
  1047. setvol:    move.b    3(a6),8(a5)
  1048.     rts
  1049.  
  1050. setfilt:move.b    3(a6),d0
  1051.     and.b    #1,d0
  1052.     lsl.b    #1,d0
  1053.     and.b    #$fd,$bfe001
  1054.     or.b    d0,$bfe001
  1055.     rts
  1056.  
  1057. setspeed:
  1058.     clr.l    d0
  1059.     move.b    3(a6),d0
  1060.     and.b    #$f,d0
  1061.     move.w    d0,speed+2
  1062.     rts
  1063.  
  1064. newrou:    cmp.l    #datach0,a6
  1065.     bne.s    next1
  1066.     lea    voi1(pc),a4
  1067.     rts
  1068. next1:    cmp.l    #datach1,a6
  1069.     bne.s    next2
  1070.     lea    voi2(pc),a4
  1071.     rts
  1072. next2:    cmp.l    #datach2,a6
  1073.     bne.s    next3
  1074.     lea    voi3(pc),a4
  1075.     rts
  1076. next3:    lea    voi4(pc),a4
  1077.     rts
  1078.  
  1079. replaystep:                ;** work next pattern-step
  1080.     clr.w    timpos
  1081.     move.l    muzakoffset,a0
  1082.     move.l    a0,a3
  1083.     add.l    #12,a3            ;ptr to soundprefs
  1084.     move.l    a0,a2
  1085.     add.l    #472,a2            ;ptr to pattern-table
  1086.     add.l    #600,a0            ;ptr to first pattern
  1087.     clr.l    d1
  1088.     move.l    trkpos,d0        ;get ptr to current pattern
  1089.     move.b    (a2,d0),d1
  1090.     lsl.l    #8,d1
  1091.     lsl.l    #2,d1
  1092.     add.l    patpos,d1        ;get ptr to current step
  1093.     clr.w    enbits
  1094.     lea    $dff0a0,a5        ;chanel 0
  1095.     lea    datach0(pc),a6
  1096.     bsr.L    chanelhandler
  1097.     lea    $dff0b0,a5        ;chanel 1
  1098.     lea    datach1(pc),a6
  1099.     bsr.L    chanelhandler
  1100.     lea    $dff0c0,a5        ;chanel 2
  1101.     lea    datach2(pc),a6
  1102.     bsr.L    chanelhandler
  1103.     lea    $dff0d0,a5        ;chanel 3
  1104.     lea    datach3(pc),a6
  1105.     bsr.L    chanelhandler
  1106.     move.w    #400,d0            ;** wait a while and set len
  1107. rep1:    dbf    d0,rep1            ;   of oneshot to 1 word
  1108.     move.w    #$8000,d0
  1109.     or.w    enbits,d0
  1110.     move.w    d0,$dff096
  1111.     cmp.w    #1,datach0+14
  1112.     bne.s    rep2
  1113.     clr.w    datach0+14
  1114.     move.w    #1,$dff0a4
  1115. rep2:    cmp.w    #1,datach1+14
  1116.     bne.s    rep3
  1117.     clr.w    datach1+14
  1118.     move.w    #1,$dff0b4
  1119. rep3:    cmp.w    #1,datach2+14
  1120.     bne.s    rep4
  1121.     clr.w    datach2+14
  1122.     move.w    #1,$dff0c4
  1123. rep4:    cmp.w    #1,datach3+14
  1124.     bne.s    rep5
  1125.     clr.w    datach3+14
  1126.     move.w    #1,$dff0d4
  1127.  
  1128. rep5:    add.l    #16,patpos        ;next step
  1129.     cmp.l    #64*16,patpos        ;pattern finished ?
  1130.     bne.s    rep6
  1131.     clr.l    patpos
  1132.     addq.l    #1,trkpos        ;next pattern in table
  1133.     clr.l    d0
  1134.     move.w    numpat,d0
  1135.     cmp.l    trkpos,d0        ;song finished ?
  1136.     bne.s    rep6
  1137.     clr.l    trkpos
  1138. rep6:    movem.l    (a7)+,d0-d7/a0-a6
  1139.     rts
  1140.  
  1141. chanelhandler:
  1142.     move.l    (a0,d1.l),(a6)        ;get period & action-word
  1143.     addq.l    #4,d1            ;point to next chanel
  1144.     clr.l    d2
  1145.     move.b    2(a6),d2        ;get nibble for soundnumber
  1146.     lsr.b    #4,d2
  1147.     beq.s    chan2            ;no soundchange !
  1148.     move.l    d2,d4            ;** calc ptr to sample
  1149.     lsl.l    #2,d2
  1150.     mulu    #30,d4
  1151.     lea    pointers-4(pc),a1
  1152.     move.l    (a1,d2.l),4(a6)        ;store sample-address
  1153.     move.w    (a3,d4.l),8(a6)        ;store sample-len in words
  1154.     move.w    2(a3,d4.l),18(a6)    ;store sample-volume
  1155.  
  1156.     move.l    d0,-(a7)
  1157.     move.b    2(a6),d0
  1158.     and.b    #$f,d0
  1159.     cmp.b    #$c,d0
  1160.     bne.s    ok3
  1161.     move.b    3(a6),8(a5)
  1162.     bra.s    ok4
  1163. ok3:    move.w    2(a3,d4.l),8(a5)    ;change chanel-volume
  1164. ok4:    move.l    (a7)+,d0
  1165.  
  1166.     clr.l    d3
  1167.     move.w    4(a3,d4),d3        ;** calc repeatstart
  1168.     add.l    4(a6),d3
  1169.     move.l    d3,10(a6)        ;store repeatstart
  1170.     move.w    6(a3,d4),14(a6)        ;store repeatlength
  1171.     cmp.w    #1,14(a6)
  1172.     beq.s    chan2            ;no sustainsound !
  1173.     move.l    10(a6),4(a6)        ;repstart  = sndstart
  1174.     move.w    6(a3,d4),8(a6)        ;replength = sndlength
  1175. chan2:    tst.w    (a6)
  1176.     beq.s    chan4            ;no new note set !
  1177.     move.w    22(a6),$dff096        ;clear dma
  1178.     tst.w    14(a6)
  1179.     bne.s    chan3            ;no oneshot-sample
  1180.     move.w    #1,14(a6)        ;allow resume (later)
  1181. chan3:    bsr.L    newrou
  1182.     move.w    (a6),(a4)
  1183.     move.w    (a6),16(a6)        ;save note for effect
  1184.     move.l    4(a6),0(a5)        ;set samplestart
  1185.     move.w    8(a6),4(a5)        ;set samplelength
  1186.     move.w    (a6),6(a5)        ;set period
  1187.     move.w    22(a6),d0
  1188.     or.w    d0,enbits        ;store dma-bit
  1189.     move.w    18(a6),20(a6)        ;volume trigger
  1190. chan4:    rts
  1191.  
  1192. datach0:    blk.w    11,0
  1193.         dc.w    1
  1194. datach1:    blk.w    11,0
  1195.         dc.w    2
  1196. datach2:    blk.w    11,0
  1197.         dc.w    4
  1198. datach3:    blk.w    11,0
  1199.         dc.w    8
  1200. voi1:        dc.w    0
  1201. voi2:        dc.w    0
  1202. voi3:        dc.w    0
  1203. voi4:        dc.w    0
  1204. pointers:    blk.l    15,0
  1205. notetable:    dc.w    856,808,762,720,678,640,604,570
  1206.         dc.w    538,508,480,453,428,404,381,360
  1207.         dc.w    339,320,302,285,269,254,240,226  
  1208.         dc.w    214,202,190,180,170,160,151,143
  1209.         dc.w    135,127,120,113,000
  1210. muzakoffset:    dc.l    0
  1211. trkpos:        dc.l    0
  1212. patpos:        dc.l    0
  1213. numpat:        dc.w    0
  1214. enbits:        dc.w    0
  1215. timpos:        dc.w    0
  1216. data=$40000
  1217. Program_end:
  1218.  
  1219.